import qualified Data.ByteString.Char8 as B

solve :: B.ByteString -> B.ByteString -> B.ByteString
solve xs ys = B.concat $ B.zipWith (\a b -> B.pack [a,b]) xs ys
    
main = do
    c <- B.getContents
    let l = B.lines c
        p = head l
        q = last l
    B.putStrLn $ solve p q
    